home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Games / 1,000 Games - Disk 1.iso / arcade / rexdemo / lines.rpp < prev    next >
Text File  |  1996-10-26  |  513b  |  33 lines
  1. {line.rpp}
  2.  
  3. randomize;
  4.  
  5. line(0,0,319,199);
  6.  
  7. var n: number;
  8. var x1: number;
  9. var y1: number;
  10. var x2: number;
  11. var y2: number;
  12. var s: string;
  13. var test: number;
  14.  
  15. s := "mike " + "johnson";
  16. test := (((5+5) * 2) / 2) + 5;
  17. println("The number is: ", test);
  18. println(test > 20);
  19. println(test = 15);
  20.  
  21. setcolor(145);
  22. println(s);
  23.  
  24. loop(n=1 to 1000)
  25.   x1 := rand(0, 319);
  26.   y1 := rand(0, 199);
  27.   x2 := rand(0, 319);
  28.   y2 := rand(0, 199);
  29.   setcolor(rand(1, 255));
  30.   line(x1, y1, x2, y2);
  31. endl;
  32.  
  33.